home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESRSRC2.S < prev    next >
Text File  |  1993-03-10  |  1KB  |  50 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Resource manager routines 2 of 2.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; rsrc_saddr
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _rsrc_saddr
  20. _rsrc_saddr:
  21. ;          .cargs    #4,type,idx,addr.l
  22.  
  23. type            =    4
  24. idx             =    6
  25. addr            =    8
  26.  
  27.           move.l    #$71020101,d0       ; AControl  113,2,1,1
  28.           lea        type(sp),a1
  29.           lea        addr(sp),a0
  30.           jmp        aes_do
  31.  
  32. ;-------------------------------------------------------------------------
  33. ; rsrc_obfix
  34. ;-------------------------------------------------------------------------
  35.  
  36.           globl     _rsrc_obfix
  37. _rsrc_obfix:
  38. ;          .cargs    #4,ptree.l,obj
  39.  
  40. ptree            =    4
  41. obj             =    8
  42.  
  43.           move.l    #$72010101,d0       ; AControl  114,1,1,1
  44.           lea        obj(sp),a1
  45.           lea        ptree(sp),a0
  46.           jmp        aes_do
  47.  
  48. ;          end of code
  49.  
  50.